home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #193 (1992)(Rhein-Sieg-Soft).zip / Franz PD Disk #193 (1992)(Rhein-Sieg-Soft).adf / GFA.Beispiel / TAGEFINDER.LST < prev    next >
File List  |  1992-09-14  |  2KB  |  46 lines
  1. REM  *********************************
  2. REM  *      Tagefinder V1.00         *
  3. REM  *    © 1992 by Henry König      *
  4. REM  * Bornheide 71, 2000 Hamburg 53 *
  5. REM  *********************************
  6. init                            !  Variable vorbesetzen
  7. start:
  8. t=0                             !  Eingangswert fuer die Schleife
  9. WHILE t<1 OR t>31               !  nur Tage zwischen 1 und 31 erlaubt
  10.   INPUT " Tag: ";t
  11. WEND
  12. m=0                             !  Eingangswert fuer die Schleife
  13. WHILE m<1 OR m>12               !  nur die Monate 1 bis 12 erlauben
  14.   INPUT "Monat: ";m
  15. WEND
  16. j=0                             !  Eingangswert fuer die Schleife
  17. WHILE j<1700                    !  richtiges Ergebnis nur ab 1700 möglich
  18.   INPUT " Jahr: ";j
  19. WEND
  20. z=j-1                           !  Jahr minus 1
  21. c=INT(z/4)-INT(z/100)+INT(z/400)
  22. x=(j+t+c)-1                     !  Anzahl der Tage
  23. x=x+VAL(MID$(ausg$,m,1))        !
  24. IF m>2 AND j=4*INT(j/4) AND j<>100*INT(j/100) OR j=400*INT(j/400) THEN
  25.   x=x+1                         !  Schaltjahr, dann plus 1 Tag
  26. ENDIF
  27. x=x-7*INT(x/7)                  !  Tag von 1 bis 7 berechnen
  28. PRINT "Der ";t;".";m;".";j;" war ein ";tag$(x+1)
  29. PRINT
  30. GOTO start
  31. PROCEDURE init                  !  Variable vorbesetzen
  32.   DIM tag$(7)                   !  Tag in Klartext
  33.   FOR j%=1 TO 7                 !  7 Tage
  34.     READ tag$(j%)               !  Tage lesen
  35.   NEXT j%
  36.   ausg$="033614625035"          !  Monatskorrekturzahlen
  37.   DATA "Sonntag"
  38.   DATA "Montag"
  39.   DATA "Dienstag"
  40.   DATA "Mittwoch"
  41.   DATA "Donnerstag"
  42.   DATA "Freitag"
  43.   DATA "Samstag"
  44. RETURN
  45. REM
  46.